home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / dev / misc / gms_dev.lha / GMSDev / Source / Asm / Objects / OBJ.Screen.s next >
Text File  |  1997-12-09  |  1KB  |  50 lines
  1.  
  2.     INCDIR    "GMSDev:Includes/"
  3.     INCLUDE    "dpkernel/dpkernel.i"
  4.  
  5.     SECTION    "ObjectData",DATA
  6.  
  7. Objects    dc.l    "OBJF"    ;Header.
  8.  
  9. OBJ_Screen:
  10.     dc.l    "TAGS"    ;Structure ID.
  11.     dc.l    .next    ;Pointer to next object.
  12.     dc.b    "Screen",0    ;Name.
  13.     even
  14. .data    dc.l  TAGS_SCREEN,0
  15.     dc.l  GSA_Width,640
  16.     dc.l  GSA_Height,256
  17.     dc.l  GSA_Attrib,CENTRE
  18.     dc.l  GSA_ScrMode,HIRES|LACED
  19.     dc.l    GSA_BitmapTags,0
  20.     dc.l    BMA_Type,ILBM
  21.     dc.l    BMA_AmtColours,16
  22.     dc.l    TAGEND,0
  23.     dc.l  TAGEND
  24.  
  25. .next ;---------------------------------------------------------------------;
  26.  
  27. OBJ_Picture:
  28.     dc.l    "TAGS"    ;Structure ID.
  29.     dc.l    .next    ;Pointer to next object.
  30.     dc.b    "Picture",0    ;Name.
  31.     even
  32. .data    dc.l    TAGS_PICTURE,0
  33.     dc.l    PCA_ScrMode,HIRES|LACED
  34.     dc.l    PCA_Source,.file
  35.     dc.l      PCA_BitmapTags,0
  36.     dc.l      BMA_AmtColours,16
  37.     dc.l      BMA_Type,ILBM
  38.     dc.l      BMA_Width,640
  39.     dc.l      BMA_Height,256 
  40.     dc.l      BMA_MemType,MEM_VIDEO
  41.     dc.l      TAGEND,0
  42.     dc.l    TAGEND
  43.  
  44. .file    FILENAME "GMS:demos/data/PIC.Pic640x256"
  45.  
  46. .next ;---------------------------------------------------------------------;
  47.  
  48.     dc.l    "OEND"
  49.  
  50.